;               Dow Jones Script File
;               Please see READ.ME for details
;
;LOGON TO DOW JONES THRU TELENET AT 300, 1200 and 2400 baud
jump begin
label PLEASE
clear
mess    PLEASE TRY AGAIN.  DOW JONES IS NOT RESPONDING.
.
bye
abort 
label begin
wait delay 20
reply @
wait delay 10
reply |
wait delay 10
reply |
whenever "TERMINAL=" reply |
wait char "@"
REply C 609 42|
WAit String "connected"
WAit String "PLEASE???"
REply "DJNS|"
WAit String "@@@@@@@@"
REply *** PW ***|
wait string "QUERY"
otimeout 200 jump PLEASE